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ルレ シル ョ レシ と ルレ 


DIM MP(2).M(Z) 
PLAY !MIU9Y9T1:M1V9Y0T1 
PLAY "CDEFGAB 
CLS:LOCATE 9.29:FOR 1=9 TO 27:COLOR 1,20,3:FRINT CHRS(217)1:NEXT 
ERA 9,1.2 ょ コ 。4 
SPRITE ON 
X ニ 12:Y ニ 18:X1 ニ 9:Y1 ニ 9:88=9:8C ニ 9: ビニ 4・K ニ コ 
CGSET 1.9 
LOCATE 9 

PRINT "SCORE" 

LOCATE 12.09 

PRINT "HI-SCORE" 

LOCATE 21.9 

PRINT HI 

FOR 1=9 TO 2:UMP(I)=9:NEXT 

TF SS MOD 3= 9 THEN (1)=12:MP(1)=RND(19)+19:GOSUB 430 

89 者 0U0 3= 】1 THEN MC )=6:MC1)=12:QP(9)=RND(20)+10:MP(1)=RND(20)+19:GOSUB 4 


1F 88 MOD 3= 2 THEN MC9)=6:MC1) ニ 12:(2)=22:QP(9 )=RND(39 )+19:MP(1 )=RND(39)+19 
・MUP(2)=RND(39)+19:GOSUB 4939 | 
199 899 ニ 99+ 1 
299 9=9:K ニ 1 
2109 IF MOVE(1 )=9 THERN DEFMOVE(1)=SPRITE(15.3,RND(3)+1 ,255,9.9):POSITION 1.9.RNDK 
149)+(S8*3) MOD 39:HOVE 1 
229 IF MOVE(2)=9 THEN DEFMOVE(2)=SPRITE(11.5,RND(3)+1 ,(189-YPO8(1) )/2.9.9):POSTT 
ION 2,XPOS(1),YPOS(1):HOVE 2 
239 IF MOVE(3)=9 THEN DEFMOVE(3)=SPRITE(RND(4)+2.3,RND(3)+1,199.9,9):POSITION コ 。 
55 * ま 5 て 。 HBVE コ 
249 IF CRASH(9)>1 THEN GOTO 839 
259 IF MOVE(9)=9 THEN 8=STICK(9):X ニ X+X1:Y ニ Y+Y1:X1= ニ 9:Y1=9:GOTO 279 
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GOTO 209 

1F 9=1 AND Y=18 AND X<26 THEN X1=2:98=3:GOTO 379 

1F 9=2 AND Y=18 AND X>1 THEN X1=-2:9=7:GOTO 79 

1F 8=8 AND Y=18 AND SCRS(X.Y)<>9 9 THEN Y1 ニ -4:8 ニ 1:K ニ 2:GOTO 379 
1F 9=4 AND_Y=14 AND SCRS(X.Y) く <> リ ! THEN Y1=4 ・9= ニ 5:K=2:GOTO 379 
= ニ OTRIG(9) 

IF 8=8 AND E=4 AND SCRS(X,Y)<> リ 9 り AND Y=18 THEN E=S:PLAY "CP:GOTO 418 
1F S=4 AND E=8 AND SCRS(X,Y)<> リ " ! AND Y=18 THEN E=S:PLAY ?D サ EGOTO 4189 
LOCATE 3,22:PRINT り 9 9iP()19 ゅ 

LOCATE 9.22:PRINT リ 9 9iP(1)j9 * 

LUOCATE 29,22:PRINT リ 9iP(2)1 り 9 9・GOTO 208 

DEF MOVE(9 )=SPRITE(9.8, 1 .8*K,.,8 ) 

POSITION 9.X*8+12.Y*8+24 

HOVE 9@ 

GUTO 2898 

1F X ニ 6 THEN MP(9 )=MP(9 )- 1 : IF MP(9)=9 THEN GOSUB 689 

IF X=12 THEN P(1)=P(1)-1:IF MP(1)=9 THEN GOSUB 689 

1F. X ニ 22 THEN MP(2)=QP(2)- 1 : TF UP(2)=9 THEN GOSUB 689 

1F MP(9)=9 AND MP(1)=9 AND MP(2)=9 THEN CUT 9,1.2.3.4:GOTO 1689 
の し じ ニ 9C+ 1 

LOCATE 5,8 

PRINT 8C 

GOTO 3469 

FOR エー ニ 9 TO 2 

IF MP(T)= ニ 9 THEN 666 

(= ニ 9:FOR A=4 TO 9 

FOR B=9 TO C 

LOCATE B+rU(1).4 

COLOR B+rM(1).A,3 

PRINT CHRS(216+RND(4 ) ) 

LOCATE B*-1+(1).,A 

CUOLOR  B*-1+(I).,A.3 

PRINT CHRS(216+RND(4 ) ) 

NEXT 





じ ニ C+ 1 

NEXT 

FOR A=19 TO 193 

LOCATE UI)-1。4 ぬ 4 

FOR C=9 TO 2:PRINT CHRS(299+RND(3))j:COLOER (1)- 1 ビビ 4 3: NE 
NEXT 

NEXT 

RETURN 

だ 有 林 カニ E9 TO 19 STEF -} 
LOCATE X-1 台 

PRINT " = 

NEXT 

C=5:FOR A=9 TO 4 STEP-1 
FOR B=9 TO C 

LOCATE B+X, ム ね 

の 持 ま 瞭 を 

LOCATE B*-1+ 名 。 合 

"る ま 5 叶っ 

NEXT 

C ニ =C- 1 

NEXT 

SC=SC+RND(5)*19 

RETURN 

CUT 9,1.2. ヨ 4 

LOCATE 25.9:PRINT KA:KA ニ KA-1 
IF KA=9 THEN 879 

GOTO 219 

LOCATE 19,19 

PRINT "GAME OVER" 

PLAY "CCEEFF :CECECE 

IF SC>HI THEN HI= ニ SC 

IF STRIG(9) く <>1 THEN 919 
GOTO 29 
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LOCATE X.,89 

COLOR X,9,2 

PRINT CHRS〈(195 ) 

LOCATE X,29 

COLOR X.,29。2 

PRINT CHRS(195) 

NEXT 

ド が UER イー ニー9 TO 29 

LOCATE 9,Y 

COLOR 9.Y,2 

PRINT CHRS〈(195 ) 

LOCATE 27,Y 

し は LUOR 2 ア ,Y,2 

PRINT CHRS(195) 

NEXT 

FOUR エニ 2 TO 18 3TEP 2:FOCATE RND(22)+2。1:PRINT CHRS(297 ) : NEXT 
メー129・Y ニ 199・X2 ニ 1 :Y2=1・X1 ニ 1 :Y1=1 :K1 ニ 1 :K2=1:C=9:TIME ニ B 
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う 339 NEXT 

コ 49 K=STRIGK(9 ) 

づら 59 IF K=4 THEN X2=〈X2 MOD 5)+1 
369 IF K=8 THEN Y2=〈Y2 MOD 5)+1 
379 TIME=TIME+1 

389 LOCATE 19.22:PRINT TIME 

399 GOTO 249 

499 LOCATE 8,189 

419 PRINT "GAME OVER" 

429 IF HT く TIME THEN 479 

439 LOCATE 5.12 

449 PRINT !YOU BEST TIME* 

459 PLAY"GAFGC 
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を 書い て 送っ て ね 。 
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